perm filename EMITER.HDR[OLD,HE] blob
sn#463359 filedate 1979-08-02 generic text, type T, neo UTF8
! Defines the relocation and PC constants for the emiter.
Declares the procedures in EMITER.SAI. Does not require EMITER.REL;
! RELOC constants;
DEFINE PSINST = "0"; ! Pseudo-instruction;
DEFINE SYMDEC = "1"; ! Declaration of numbered symbol;
DEFINE SYMREF = "2"; ! Reference to numbered symbol;
DEFINE STRCONST = "3"; ! String constant;
DEFINE REMARK = "5"; ! Just a comment for debugging;
DEFINE SKIP = "6"; ! Skip some words (DATA tells how many);
DEFINE CONST = "7"; ! Just an octal constant;
DEFINE FLOAT = "8"; ! A floating point constant;
! PC constants;
DEFINE PSDCODE = "0"; ! Pseudo-code;
DEFINE TJFILE = "1"; ! Trajectory tables;
DEFINE SMLBLK = "2"; ! Small blocks: constants;
DEFINE SYMFIL = "3"; ! Symbol table;
DEFINE DUMMY = "0";
EXTERNAL PROCEDURE EMIT(INTEGER PC; REFERENCE INTEGER DATA, RELOC;
INTEGER LTH (1));
EXTERNAL PROCEDURE COMERR
(STRING MESSG;RECORD_POINTER(ANY_CLASS) CONTXT (NULL_RECORD));
EXTERNAL PROCEDURE INITOUT(STRING FNAME,PPN;BOOLEAN SF(TRUE));
EXTERNAL PROCEDURE CLOSEOUT;
EXTERNAL PROCEDURE MAKE_REMARK(INTEGER PC;STRING REMK);
EXTERNAL INTEGER PROCEDURE GENLABEL;